(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3856,        114]
NotebookOptionsPosition[      3415,         99]
NotebookOutlinePosition[      3812,        115]
CellTagsIndexPosition[      3769,        112]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Calibrating", " ", "and", " ", "solving", " ", "the", " ", "Model", " ", 
   "with", " ", "Fixed", " ", "Capital", " ", "and", " ", "the", " ", 
   "corresponding", " ", "homogenous", " ", "model"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.902906888185151*^9, 3.902906908422941*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"dc936787-0c4b-4e7e-8231-9d705d1ddd8f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"pointsFixedCapital", ",", "pointsFixedCapitalHomo"}], "}"}], 
    "=", 
    RowBox[{"calibrateFixedCapital", "[", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ansFixedCapital", "=", 
   RowBox[{"SolveModelFixedCapital", "[", "pointsFixedCapital", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ansFixedCapitalHomo", "=", 
    RowBox[{"SolveModelFixedCapital", "[", "pointsFixedCapitalHomo", "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"destination", "=", 
   RowBox[{
   "path", "<>", "\"\</Outputs/Model/FixedCapital/modelOutputs.csv\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"destination", ",", 
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"1300", "+", 
            RowBox[{"t", "*", "25"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "28"}], "}"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{
              RowBox[{"ansFixedCapital", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}], 
             FractionBox["1", "25"]], "-", "1"}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "29"}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{
              RowBox[{"ansFixedCapitalHomo", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}], 
             FractionBox["1", "25"]], "-", "1"}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "29"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<years\>\"", ",", "\"\<RFixedCapital\>\"", ",", 
        "\"\<RFixedCapitalHomo\>\""}], "}"}]}], "]"}], ",", "\"\<Table\>\"", 
    ",", 
    RowBox[{"\"\<FieldSeparators\>\"", "->", "\"\<,\>\""}]}], "]"}], 
  ";"}]}], "Input",
 CellLabel->"In[11]:=",ExpressionUUID->"277e9d79-75fb-4e50-889f-1828abda0749"]
},
WindowSize->{808, 816},
WindowMargins->{{Automatic, 158}, {Automatic, 43}},
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"819bbaee-a2e2-4057-9746-a17896d7ee66"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 410, 7, 52, "Input",ExpressionUUID->"dc936787-0c4b-4e7e-8231-9d705d1ddd8f"],
Cell[971, 29, 2440, 68, 297, "Input",ExpressionUUID->"277e9d79-75fb-4e50-889f-1828abda0749"]
}
]
*)

